home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / tbbs / 1line10.zip / ONELINER.PRG < prev    next >
Text File  |  1996-03-19  |  2KB  |  74 lines
  1. ** Oneliner Door for TBBS/TDBS 2.3/1.2 version 1.0
  2. ** Written and compiled on 3/19/1996
  3. ** Copyright (C) by John V. Baboval for Nimbus TBBS
  4. ** This software is freeware and can be distributed in it's unaltered form.
  5. ** If this software is modified in any way, the first six lines of this
  6. ** source must remain unaltered and any modifications should be noted.
  7. SET EXCLUSIVE OFF
  8. DO liner
  9. USE lines.dbf
  10. SET COLOR TO W+/B
  11. go = 1
  12. DO WHILE go < 9
  13.    GOTO go
  14.    @ (go+1),2 SAY "&SAYING"
  15.    IF ANON
  16.       @ (go+1),56 SAY "Anonymous"
  17.    ELSE
  18.       @ (go+1),56 SAY "&NAME"
  19.    ENDIF
  20.    go = (go+1)
  21. ENDDO
  22. SET COLOR TO W+/N
  23. @ 11,1 SAY "Would you like to add a line?"
  24. DO WHILE .T.
  25.    key = INKEY()
  26.    DO CASE
  27.       CASE CHR(key) = "y" .OR. CHR(key) = "Y"
  28.          DO add
  29.          QUIT
  30.       CASE CHR(key) = "n" .OR. CHR(key) = "N"
  31.          QUIT
  32.    ENDCASE
  33. ENDDO
  34. *----------------------------------------------------------------------*
  35. PROCEDURE add
  36. USE lines.dbf
  37. @ 12,1 SAY "REMEMBER, the SysOp can ALWAYS see who wrote what!"
  38. go = 2
  39. DO WHILE go < 9
  40.    GOTO go
  41.    said = "&SAYING"
  42.    was = "&NAME"
  43.    ano = ANON
  44.    GOTO (go-1)
  45.    REPLACE SAYING WITH said
  46.    REPLACE NAME WITH was
  47.    REPLACE ANON WITH ano
  48.    go = (go+1)
  49. ENDDO
  50. GOTO 8
  51. was = UNAME()
  52. REPLACE NAME WITH was
  53. said = SPACE(52)
  54. @ 13,1 GET said
  55. READ
  56. IF EMPTY(said)
  57.    REPLACE SAYING WITH "I changed my mind..."
  58. ELSE
  59.    REPLACE SAYING WITH said
  60. ENDIF
  61. @ 14,1 SAY "Do you want this to be anonymous?"
  62. DO WHILE .T.
  63.    key = INKEY()
  64.    DO CASE
  65.       CASE CHR(key) = "y" .OR. CHR(key) = "Y"
  66.          REPLACE ANON WITH .T.
  67.          QUIT
  68.       CASE CHR(key) = "n" .OR. CHR(key) = "N"
  69.          REPLACE ANON WITH .F.
  70.          QUIT
  71.    ENDCASE
  72. ENDDO
  73. RETURN
  74.